home *** CD-ROM | disk | FTP | other *** search
/ Virtual Top Model / Virtual Top Model - Disc 1.iso / modulos / mod-2.dxr / Internal_31_modulo 7.ls < prev    next >
Encoding:
Text File  |  1997-04-01  |  645 b   |  25 lines
  1. on mouseUp
  2.   if rollOver(16) then
  3.     set the member of sprite 16 to member "Bt_Mod_A/7" of castLib "elementos graficos"
  4.     puppetSprite(16, 0)
  5.     updateStage()
  6.     set CD to BuscaCd()
  7.     if CD <> EMPTY then
  8.       set sModuloDestino to CD & "\modulos\MOD-7"
  9.       go("inicio", sModuloDestino)
  10.     end if
  11.   end if
  12. end
  13.  
  14. on mouseDown
  15.   repeat while the stillDown
  16.     puppetSprite(16, 1)
  17.     if rollOver(16) then
  18.       set the member of sprite 16 to member "Bt_Mod_B/7" of castLib "elementos graficos"
  19.     else
  20.       set the member of sprite 16 to member "Bt_Mod_A/7" of castLib "elementos graficos"
  21.     end if
  22.     updateStage()
  23.   end repeat
  24. end
  25.